home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / freaker.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-10-04  |  1.4 KB  |  56 lines
  1. 10  HUP$="AT***"
  2. 20  KEY OFF:CLS:J=0:M=6:M1=9:Q=1
  3. 30  L=2000:S=1000
  4. 40  AR$="1-800-"
  5. 50  INPUT "PREFIX (555-)";PR$
  6. 60  INPUT "STARTING NUMBER";C
  7. 70  CLOSE#1
  8. 80  IF C>9999 THEN 50
  9. 90  FOR DL= 1 TO L:NEXT DL
  10. 100  OPEN "COM1:1200,E,7,1,CS,DS" AS #1
  11. 110  OP$="AT M0 S11=50 S7=20 S2=42 S0=0 DP"'    ****  MODEM COMMAND LINE  *****
  12. 120  C$=STR$(C):IF FLAG=0 THEN L$=C$:FLAG=1
  13. 130  CLS:M1=4:LOCATE 2,34:PRINT "FREAKER BELL":PRINT"STARTING NUMBER = ";L$:LOCATE 1,1:PRINT J
  14. 140  IF J>0 THEN LOCATE 5,1:PRINT "COMPUTERS FOUND":FOR T= 0 TO J:LOCATE T+6,5:PRINT K$(T):NEXT T
  15. 150  LOCATE M1,36:PRINT Q;CHR$(41)+AR$+PR$+C$:M1=M1+1:Q=Q+1
  16. 160  X=LOC(1):IF X=0 THEN 180
  17. 170  DUM$=INPUT$(X,1)
  18. 180  PRINT#1,OP$+AR$+PR$+C$
  19. 190  NUM$=AR$+PR$+C$
  20. 200  FOR DL=1 TO 20000:NEXT DL
  21. 210  FOR DL=1 TO 350
  22. 214  IF LOC(1)=14 THEN 290
  23. 215  IF LOC(1)=0 OR LOC(1)=1 THEN 260
  24. 220  DRM$=INPUT$(2,1)
  25. 225  IF LOC(1)<7 THEN 260
  26. 230  ANS$=INPUT$(7,1)
  27. 240  XT=LOC(1):IF XT=0 THEN 260
  28. 250  DUM$=INPUT$(XT,1)
  29. 260  IF ANS$="CONNECT" THEN 310
  30. 270  IF INKEY$=CHR$(27) THEN 70
  31. 280  NEXT DL
  32. 290  C=C+1
  33. 300  GOTO 70
  34. 310  FOR HP= 1 TO 3
  35. 311    IC%=INP(&H3FB)
  36. 312    IZ%=IC% OR &H40
  37. 313    OUT &H3FB,IZ%
  38. 314     FOR I=1 TO 500:NEXT I
  39. 315    OUT &H3FB,IC%
  40. 320       FOR DL=1 TO L:NEXT DL:PRINT#1,HUP$:FOR DL=1 TO L:NEXT DL
  41. 330  NEXT HP
  42. 335  ANS$=""
  43. 350  K$(J)=NUM$:X=CSRLIN
  44. 360  J=J+1:LOCATE 1,1:PRINT J
  45. 370  LOCATE 5,1:PRINT "COMPUTERS FOUND":LOCATE M,5:PRINT NUM$
  46. 380  IF FLG=0 THEN LPRINT "NUMBERS WITH COMPUTERS ATTACHED=":FLG=1
  47. 390  LPRINT "       ";NUM$
  48. 400  M=M+1:IF M=25 THEN M=6
  49. 410  C=C+1
  50. 415  FOR DL= 1 TO 5000:NEXT DL
  51. 420  LOCATE X,36:GOTO 70
  52. 430  END
  53. 440  OPEN "COM:300,E,7" AS #1
  54. 450  FOR DL=1 TO 2000:NEXT DL
  55. 460  PRINT TIME$
  56.